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000 1 eTITL VBTORIVR = 11/790 CONSOLE RLO2 BOOTDRIVER 
44 ; . IDEN f Mites B00" 
000 
000 5 s poco cunseeoseonoscanousnsonsannenqueoosessseenseqnenenososestoononnenenecess 
;* 
000 9 $= COPYRIGHT (c) 1978, 1980, 1982, 1984 6 : 
000 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
i464 1 :* ALL RIGHTS RESERVED. * 
e ® 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
8808 \ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
00 15 ;* INCLUSION OF THE ABOVE gat hog NOTICE. THIS SOFTWARE OR ANY on tae * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY # 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 1 is TRANSFERRED. * 
b ® 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 $0 3* CORPORATION. + 
3® .s 
0000 $$ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
i$ 24 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
: * 
0000 5 30 + 
464 $$ 4 'MARBABARALALSAALASLALLALEAALASEAEE SEES SEES SESE RE RES ESE SESE EEE SEES ERE REC EE ESE EE OSS 
0000 28° 
0000 9; 
0000 0; FACILITY: BOOTS 
0000 73 
0000 § ; ABSTRACT: 
0000 : This module contains the bootstrap device driver for the 
4 $e : 11/790 RLO2 console disk. 
+444 3 : ENVIRONMENT: IPL 31, kernel mode, code must be PIC 
444 38 : AUTHOR: Trudy Matthews, CREATION DATE: 14-Nov-1982 
0000 40 ; MODIFIED By: 
0000 41; 
0000 rf 3 v03-005 TCR000S Trudy C. Matthews 13-Aug-1984 
0000 43; x DO_MAPPING routine so that it doesn't suahertte the 
464 44; race Status in RO. Fix GETWORD and PUTWORD so they call 
4 o2 ; DO_MAPPING at every page boundary. 
44 43 ; v03-004 TCM0004 Trudy C. Matthews 03-Jan-1984 
+464 $8 5 Correct some bugs. 
9000 30 ; v03-003 TCM0003 Trudy C. Matthews 17-Oct-1983 _ 
00 1; Make sure routines READ_1_BLK and WRITE_1_BLK exit with 
st 26 : correct status in RO. 
200 54 : v03-002 TCROOSS Trudy C. Matthews 31-May-1983 
00 2? ; Restore ' regrreetiy” from stack on error paths in READ_1_BLK 
000 § : and WRITE so add correct name of standard console 
000 a7 3 RLO2 or ier” (CVDRIVER), and change module name from VENBTDRVR 


ey 
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4-SEP-1984 BOOTS. SRCJCVBTDRIVR.MAR; 1 
0000 28 : to CVBTDORIVR. 
000 60; v03-001 TCM0001 Trudy C. Matthews 27-Apr-1983 
0000 61 ; change number of “interrupts” y’ Pons po of data transferred 
0000 = 62 ; rom 256 to 257 (1 per word + | completion). Use 
0000 65 ; TREAD PHYSICAL” and ‘WRITE “PHYSICAL” 1/0 function codes 
0000 64 ; to avoid using the VENUS console RLO2 driver's bad block 
44 # $ replacement scheme. 
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68 -SBTTL DECLARATIONS 
29 3; INCLUDE FILES: 
58 
00 7 SBTDDEF 
00 74 SIODEF 
00 75 SPRDEF 
00 6 SPTEDEF 
4 7 SRPBDEF 
00 4 SSSDEF 
000 7 SSTXCSDEF 
$4 0 SSTXDBDEF 
000 1 SVADEF 
0000 ¢ 
0000 83 ; 
0000 84 ; MACROS: 
0000 53 
0000 6 
0000 73 
0000 88 ; EQUATED SYMBOLS: 
0000 89 ; 
0000 90 
0000 91; 
0000 3 : OWN STORAGE: 
0000 93 ; 
0000 94 
0000 95 ; 
0000 96 ; Boot driver table entry 
0000 97; 
0000 98 
0000 ga SBOOT_DRIVER DEVTYPE = 
0000 100 CPUTYPE = 
0000 8 101 SIZE = CO 
0000 196 ADDR = CO 
0000 #810 DRIVRNAME 
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Page (3) 


Boot device types 

1/0 function codes 

Processor registers 

PTE definitions 

RPB offsets 

; Status codes 

; Console storage device CSR 

; Console storage device data register 
; Virtual address fields 


BTDS$k_CONSOLE ,- 
PR$_SID_TYP790,- 
NSRL_DRVSIZ,- ; Driver size 
NSRL_DRIVER,- : Driver address 

= CONSRL_NAME : Driver file name 


3; Device type (console) 
; Cpu type (11/790) 


Ma 
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BSBW —DO_MAPPING 


Transfer data, one block at a time. 


| 0 6 ! 5 -SBTTL 11/790 Console RLO2 Bootstrap Driver Code 
| aa 8) oo 
| 0 i : Inputs: 
000 111: R1 Address of page table for virtual -> physical mappin 
B08 118 3 Re Base VPN of trenster (Bits 29:9 of RIB)” get 
00 113 ; R LEN for current piece of transfer 
000 114 ; R8 Size of transfer in bytes 
000 115 ; RG Address of the RPB 
B98 118 : R10 Starting address of transfer 
0000 118: FUNC(AP) 1/0 operation (10$_READLBLK or I0$_WRITELBLK only) 
0000 119; MODE(AP) Address interpretation mode: 
4 : ? 3 0 => Physical, 1 => Virtual 
9000 1¢¢ ; Outputs: 
44 : : : RO Status code: 
0000 «(1 § : SS$_NORMAL Successful transfer 
0000 127 ; SS$_CTRLERR Fatal controller error 
0000 128 ;-- 
0000 129 
00000010 0000 130 FUNC = 16 
00000014 44 13) MODE = 20 
0000 138 CONSRL_DRIVER: 
OD2E 8F BB 0000 134 PUSHR #*M<R1,R2,R3,R5,R8,R10,R11> ; Save some registers 
St 
0004 139 : Perform initialization: Set up a mapping switch in R11. 
0004 138 ; There are 4 possibilities concerning mapping: the 1/0 can be 
0004 139 ; done virtual or physical (MODE(AP)) and we can be executing virtual 
0004 140 ; or physical (contents of processor register PRS$_MAPEN). If both 
0004 141 ; modes match, then we can just copy data to/from the user buffer. 
0004 146 : If the 1/0 is to be done virtual and we are executin physical 
0004 145 ; then the buffer address has to be translated using the page table 
0004 144 ; pointed to by R1. If the I/0 is to be done physicol and we are 
0004 145 ; executing virtual then we have to double map the buffer using a spare 
Bebe 196 ; PTE. At this point, we just compute a mapping switch in R11 as follows: 
8 4 133 F 9 Both modes match, just copy the data 
004 149; Do virtual => physical translation using page table 
Babe 139 : -1 Do physical -> virtual mapping using a spare PTE 
58 38 DB 0004 13 : FPR #PRS$_MAPEN,R11 ; Get mapping enabled switch 
58 58 cf 007 15 MNEGL 3; Negate i 
5B 14 AC C Bhe 133 ADDL MODE (AP) ,R11 3; Add I/0 mode switch 
O0E 136 : Set up mapping if required 
15 
139 
160 
161 
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11 162; 
57 sas ¢ D tt 188 MOVAL W*WRITE_1_BLK,R7 3; Assume we're doing a write. 
20 0A ° 16 164 CMPW FUNC (ABS POS. WRITELBLK ; Function = write? 
0 1A 165 BEQL ANSFER ; Yes, go get started. 
57 O047°CF ODE i 196 MOVAL U READS 1 BLK ,R7 ; We're reading. 
° 1 168 TRANSFER: 
53 vases. Yd ef dO 1 192 MOVL #512,R3 3; Assume transferring 1 block 
5 $ Di 0028 170 CMPL rs 3; Minimize assumed byte count “(512 
is 028 171 BGEQ $ ; bytes) with actual byte count in R8. 
53 D 02D 17 108 MOVL R8,R3 : <- byte count for this iteration. 
$7 16 § 174 JSB (R7) ; Read or write 1 block (or less). 
0D 50 €9 00 175 BLBC B 0$ ; Return if there was an error. 
58 00000200 &F cg 0 176 SUBL #512, R8 ; Done with another block. 
ee 03C 17 BLEQ eos : Branch if we're all done. 
5 D6 00 178 INCL n 3 Next L 
11 04 179 BRB TRANSFER ; Go do another block. 
004 180 20$: 

BA 004 181 POPR #*°M<R1,R2,R3,R5,R8,R10,R11> ; Restore registers. 
05 0046 182 RSB 


| 
| 
| 
| 
DF 
OD2E 8F 
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47 186 ;44 
47 185 ; READ.1 BLOCK = Subroutine to read 1 block of data 
of } § ; WRITE_T_BLOCK = Subroutine to write 1 block of data 
or. % 3 3; Inputs: 
or : R1: addr of page table for virtual => physical mapping 
Ree 190 ; R2: base VPN of transfer 
47 191; R3: # bytes to transfer (<= 512) 
Bee 136 : R5: LBN of block to transfer 
47 1935; R10: address of memory buffer 
047 194 ; R11: mapping switch 
oh 195 ; 
47 138 3; Outputs: 
047 197; Specified number of bytes are transferred. 
047 198; If an error occurs, RO contains SS$_CTRLERR. 
047 199 ; R10: next free byte in memory Buffer 
oh 0 3 ALL other registers preserved. 
047 8 
047 203 READ_1_BLK: 
DD 0047 04 PUSHL R4 ; Save a register. 
55 08 78 0049 05 ASHL #8,RS,RS 3; Position LBN of block to transfer. 
54 06 90 oep 88 MOVB #STXCSSC_READP,R4 : Form console command in R4. 
050 08 ; Move the read data into the memory buffer. 
050 09 ; 
0050 210 ios: 
0044 38 8038 11 BSBW DL_READ ; Read a word from the console. 
00A6 §=30 005 \¢ BSBW PUTWORD ; Put the word in memory data buffer. 
18 EC 0056 1 CMPV #STXCSS$V_STATUS,- 3; Check that status = continue 
02 50 08 0058 14 #STXCS$S_STATUS,RO,- 3; transaction. 
0058 215 #STXCSS$C_CONT : 
F313 4 1 BEQL 10$ :; Branch if so. 
54 8E 00 bo8p 18 MOVL »+,R4 : Restore R4. 
18 EF 0060 19 EXTZV 9 #STXCS$V_STATUS,- ; Put final status im RO and check that 
50 50 08 R068 20 #STXCS$S_STATUS,RO,RO ; it signals ‘transaction complete’. 
01 50 91 006 21 CMPB RO,#STXCSSC_COMPLT : 
01 12 0068 $§ BNEQ ERROR ; If not, report an error. 
05 O06A RSB 
0068 4 
0068 53 
se $ ; Come here if there is an error during the transfer. 
O68 8 HW_ERROR: 
50 00000054 8F p00 00 9 MOVL #SS$_CTRLERR,RO ; Set failure status. 
05 00 0 RSB 3; Return and retry. 
oor 532 
3) § 3; Write data from memory buffer to the console. 
07 5 WRITE_1_BLK: : 
54 3 fi $ PUSHL R4 ; Save a register. 
i ww 7 ASHL #8, R5,R4 ; Position CBN of block to transfer. 
540 COS 079 3 MOVE #STXxCS$C_WRITEP.R4 ; Form console command in R4. 
0062 30 bye 40 108: BSBW GETWORD ; Get a word from memory data buffer. 
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003A 38 330 7F 41 BSBW DL_WRITE ; Write it to the console. 
iS EC 2 g CMPV #STXCS$V_STATUS,- 3; Check that status = continue 
02 50 O 084 4 #STXCS$S_ST AIS « *RO, - 3; transaction. 
: 7 44 alte CON 3 
os ae : , rf BEQL 10$ ; Loop to continue writing. 
54. 8 DO 0089 <3 VL meg ; Restore R4, 
1 EF 008C 48 EXTZV aetK c§ sy STA ; Put final status in RO and check that 
50 50 9 0 ; 49 m3. CS$$ stent ATUS "RO, RO ; it signals “transaction complete’. 
01 : 91 009 50 CMPB R TxCS OMPLT’ : 
i) ig 094 3] BNEQ ; If not, report an error. 
0 096 2 RSB 
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| CVBTDRIVR = 11/790 
04 11/790 ¢ 
| 97 4 i+¢ 
97 $3 
97 $; : 
BEE snout 
- inputs: 
b97 53g ; inputs: 
097 60 ; R6 
3) $02 ¢ output 
. Vutputs: 
895 8g ; Rb 
097 264: RO 
097 65 
97 66 bt bt “READ: 
50 0000004C 8F DB 0097 2 MFPR 
F3 30 07 +€1 009 58 BBC 
990000¢¢ BF 54 DA OOA 69 MTPR 
000004c BF DB OOA 70 10$: MFPR 
F £1 0080 271 BBC 
56 00000040 8F 0B 00B4 re MFPR 
05 0088 27 RSB 
OOBC 274 
00BC 275 
O0BC 276 DL_WRITE: 
50 0000004C 8F vB 008 77 MFPR 
F550 07 €1 00C 78 BBC 
00000040 BF 56 DA O00C? 279 MTPR 
00000046C 8F 54 DA 00C 80 MTPR 
50 0000004c 8F DB 0005 281 108 MFPR 
F550 O07 €1 O0DC 382 BBC 
05 O0EO 28 RSB 


DL_READ = Subroutine to read a word from console RLO2. 
DL-WRITE = Subroutine to write a word of data to console RLO2 


Console command to write to STXCS. 
Word of data to write to RLO "ee WRITE only). 


Word read frum console (DL_READ only). 
Contents of STXCS after read completes. 


#PRS_STXCS,R Pogenes, Fight 
#STXTSSV sche RO,DL read : ; Loop until ready. 
gprs mit Txcs e 


: Console command to read a word of data. 

OPaS RO Get console status. 
sereesae saan. RO,10$ ; Loop until ready. 
#PRS_STXBB, 3; Read a word of data. 
#PRS_STXCS,R Get console status. 
#STXTSSV READY, RO,DL write ; Loop until ready. 
R6-8 PR$_STXD : Write data to console. 

3 fPRS. sIncs Noti ty console that data is present. 


peed STRCS,.RO Get console status. 
#STXESSV READY, RO,10$ : Loop until ready. 


HH 
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€1 5 344 
| OF § : GETWORD = Subroutine to get a word from memory 
+3 ; PUTWORD = Subroutine to store a word in memory 
+3 89 3 These two subroutines do two things special: 
0E1 91 ; 1) Singe you must always read or write one entire block 
00E1 3 3 (S512 bytes) through the console interface to the RLO2, 
O0E1 ve 8 these routines simply return if the memory buffer is 
QO0E1 94; empty/full before the entire block has been sransterred. 
00E1 95 ; 2) These routines take care of page boundaries if 
Beet 38 : mapping is required. 
0E1 97 ; 
Q0E1 98 ; Inputs: 
QUE1 99 ; R1 Address of page table 
00E1 00 ; Re Virtual page number of buffer 
43 01 ; R Size of remaining buffer (in bytes) 
00E1 8g : R6 Word to store (PUTWORD only) 
00E1 03 ; R10 Address of current spot in buffer 
O0E1 04 ; R11 Mapping switch: 
Q0E1 05 ; -1 Do physical -> virtual map 
Q0E1 06 ; 0 No mapping required 
00E1 07 ; 1 Do virtual => physical translation 
00E1 08 ; 
00E1 09 ; Outputs: 
43 19 3 R6 Word fetched from memory (GETWORD only) 
O0E1 \¢ 
00E1 13 GETWORD: 
56 D4 OQ0E1 14 CLRL + ; Return 0 if byte count = 0 
53 05 Q0E3 15 TSTL R ; Is byte count 0? 
14 13 OOE5 16 BEQL 10$ ; Yes, return 0 data. 
56 8A 9A O0E7 17 MOVZBL (R10)+,R6 ; Get first —e from memory. 
2A 10 QOEA 18 BSBB CHECK BOUNDS ; Eles check for page boundary. 
53 D7 OOEC 19 DECL R3 ; Decrement byte count. 
0B 13 OOEE 20 BEQL 10$ 3 0 we're done. 
56 56 08 9C OOFO 21 ROTL #8, R6,R6 ; Move 1st byte up to bit 8. 
56 BA O90 «OFS 32 MOVE = (R10) +, R6 : Get 2nd byte in low-order byte of R6. 
53 D7 OOF7 3 DECL R3 ; Decrement byte count. 
18 18 OOF9 4 BGEQ CHECK_BOUNDS ; If positive, check for page boundary. 
05 OOFB 5 10$: RSB 
pore 6 
OFC 7 PUTWORD: 
53 3 gore 8 TSTL R3 ; Is byte count 0? } 
i: 8 F BEQL 10$ ; Yes, don’t write anything in buffer. 
8A 56 90 010 0 MOVB R6,(R10)+ ; Put Ist byte in memory buffer. 
11 10 010 1 BSBB © CHECK_BOUNDS : Check for page boudary. 
53 v7 133 § DECL R3 ; Decrement byte count. 
oc 43 107 BEQL 10$ ; If 0 we're done. : 
56 56 F88F 7 109 4 ASHL #-8 ,R6,R6 >; Bring 2nd byte down to bit 0. 
8A 29 90 010€ 5 MOVB Rg, (R10)+ ; Put 2nd byte into memory buffer. 
5 D7? 0111 $ DECL ; Decrement byte count. 
01 +18 Bile BGEQ CHECK_BOUNDS ; If positive, check for page boundary. 
05 12 : 10$: RSB 
116 40 CHECK_BOUNDS: ; 
5A OF 8F B63 0116 41 BITW #VASM_BYTE,R10 ; Did address overflow onto new page? 
| 
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45 10$: 
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Bootstrap Driver Cod 4=-SEP-1 
BEQL 10$ 
RSB 


INCL R2 
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; Yes, must update mapping. 


Yes, increment virtual o pA a 
and fall through to DO_MAPPING 


Se te 


Page 
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58 45 2E 52 45 56 49 52 44 56 43 44 
oc 
0000014A 


BPS PAE ANNAN NAAIA AAI AIDPIPIPIPOPIPOPOPPDPINPININPYPININININIPINININININ = OO 
WAN AANA NNW 
C000 09 09 C000 SI NINN NN NSN PPP AAA AA AA MMIII 
MEW OS OONAUES WIN (OO OO NAME WW - OOONOU Ewin 
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p++ 
; DO_MAPPING = Subroutine to perform necessary mapping 
3; Inputs: 
; R1 Address of page table 
3 R2 Page number of buffer 
: R10 Address to ma 
; R11 Mapping switch: 
; 1 Do physical => virtual map 
; 0 No mapping required ; 
; 1 Do virtual => physical translation 
; Outputs: 
3 R10 Address to use 
; RO destroyed 
en aritig, |; R11 A i ired? 
3; Any mapping required? 
BEQL 90$ 3 No 
BLSS 100$ : Yes, map physical to virtual 
BICL #*C<VASM_BYTE>,R10 ; Yes, translate virtual to physical 
; Clear everything but byte offset 
PUSHL RO 3; save R 
MOVL (R1)CR23,R0 ; Get PFN in RO 
INSV RO, #VASV_VPN,MPTESS_PFN,R10 ; Insert PFN after byte offset 
908 “ty (SP)+,RO ; Restore previous value of RO 


: Map physical to virtual 

ioos: HALT ; Not implemented yet 
-DSABL LSB 

CONSRL _NAME : eASCIC /CVDRIVER.EXE/ 


CONSRL _DRVSIZ=.-CONSRL_DRIVER 
- END 


—_—_ CC $$ $$ 


} 
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LE = 000 $008 R 02 
CONSOLE = 8 4 
CHECK BOUNDS hi8 R 03 
CONSRC_DRIVER 000000 R 
CONSRL _ORVS1Z = QQOOOQ014A 
SRL_NAM S44 120 R 8 
DL_REAS 0000097 R 
DL_WRITE OO000BC R 0 
DO MAPPING 0000120 R 0 
FURC = 00000010 
ws eon seeuvnee & 88 
108_WRITELBLK = Goagooeo 
MODE = 00000014 
_MAPEN = 00000038 
PR$_SID_TYP790 = 00000004 
“STXES = 0000004C 
PRS_STXDB = 00000040 
PTESS PFN = 00000015 
PUTWORD QOOOOOFC R 03 
READ_1 BLK 00000047 R 03 
SS$_CTRLERR = 00000054 
STXTS$C_COMPLT = 00000001 
STXCS$C_CON = 00000002 
STXCSSC_READP = ssi 4 4 
STXCSSC_WRITEP = 00000005 
STXCS$S_STATUS = 00000008 
STXCSSV_READY = ei 4 4 
STXCS$V_STATUS = 00000018 
TRANSFER 00000021 R 03 
VASM_BYTE = QOOOOIFF 
VASV_VPN = 00000009 
WRITE_1_B8LK 00000073 R 03 
¢ece nm wmoee nme ee ee ne + 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS 00000000 < 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 <( 0.) 01 1.) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
BOOTDRIVR_4 00000028 ( 40.) 02 ¢ : ») NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
BOOTDRIVR_2 QOO0014A (¢ 330.) 03 ¢ ) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
a  Y 
' Performance indicators ! 
+ te citi aeeate 8 A et toe ttcctpet Ae 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.07 0:00:00.90 
C processing 133 398208 «86 B28: 3.7 
Syabol tabl : , 5 0001165 5:00; 234 
able sor :00:01. :00:02. 
Pass 2 80 0:00:0 .00 0:00:03.26 
Symbol table output 6 88 00; 5°be $0:90:00706 


[ 


F 6 
| CVBTORIVR - 11/790 CONSOLE RLO2 BOOTDRIVER 16-SEP-1984 00:16: AX/VMS Macro V04-00 Pa 1 
| VAK=11 Macro Run Statistics £23 Pa 984 39:09:88 tpooYs. sre CVBTORIVR.MAR; 1 = 3) 


P t i tput 7:00:00. :00:00. 
Bese tress re, ee meee 
Assembler run totals 57 :00:14.71 0:00: 36.4 


The pztine set timit was 1650 pages. 

55773 bytes (109 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1067 non-local and 11 local symbols. 
389 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

18 pages of virtual memory were used to define 16 macros. 


¢ mentee seems ecw nme em wreecesect 


: 
seweeeceeceeeeeeseeeeeaseooeoan + 


Macro Library name Macros defined 
-$255$DUA28 : CSHRLIBI790DEF .MLB; 1 2 
_5255$DUA28 : (BOOTS .OBJJBOOTS.MLB; 1 1 
_$255$DUA28: (SYS.OBJJLIB.MLB; 1 4 
$255SDUA28: CSYSLIBISTARLET.MLB; 2 6 
TOTALS (all Libraries) 13 


1198 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CVBTDRIVR/OBJ=0BJ$:CVBTDRIVR MSRC$:CVBTDRIVR/UPDATE=(ENH$: CVBTDRIVR) +EXECML$/L1B+L1B$:B00TS.MLB/LIB+SHRL IBS: 790DEF .ML 
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